home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1998 / MacHack 1998.toast / The Hacks! / Talking KeyBoard / Source / AppleEvents / aegetdata.c < prev    next >
Encoding:
Text File  |  1998-06-06  |  5.7 KB  |  203 lines  |  [TEXT/CWIE]
  1. // Program Author: Paul Baxter
  2. //    pbaxter@assistivetech.com
  3. //
  4. //
  5. #include <Speech.h>
  6. #include <Ctype.h>
  7. #include <DeskBus.h>
  8. #include <Retrace.h>
  9.  
  10. #include "aegetdata.h"
  11. #include "aerecord.h"
  12. #include "aeutils.h"
  13. #include "aetoken.h"
  14. #include "pref.h"
  15. #include "globals.h"
  16.  
  17. // * ****************************************************************************** *
  18. // *    DoGetData
  19. // *                            Handles the GetData AppleEvent
  20. // * ****************************************************************************** *
  21. pascal OSErr DoGetData(const AppleEvent    *theAppleEvent,
  22.                                 AppleEvent    *reply,
  23.                                 long        handlerRefCon)
  24. { 
  25. #pragma unused (handlerRefCon)
  26.  
  27.     AEDesc        directObj = {typeNull, NULL},
  28.                 result = {typeNull, NULL};
  29.     Size        actualSize;
  30.     DescType    returnedType;
  31.     DescType    reqType;
  32.     OSErr        reqTypeErr,
  33.                 err;
  34.  
  35.         // extract the direct object, which is the object
  36.         // whose data is to be returned
  37.     err = AEGetParamDesc(theAppleEvent, keyDirectObject, typeWildCard, &directObj);
  38.     if (noErr != err) goto done;
  39.         
  40.         // now the get the type of data wanted - optional
  41.     reqTypeErr = AEGetParamPtr(theAppleEvent, keyAERequestedType, typeType,
  42.                                 &returnedType, (Ptr)&reqType, sizeof(reqType), &actualSize);
  43.         
  44.     err = GotRequiredParams(theAppleEvent);
  45.     if (noErr != err) goto done;
  46.  
  47.         // get the data
  48.     err = HandleGetData(&directObj, &result);
  49.     if (noErr != err) goto done;
  50.         // add the result
  51.     err = AddResultToReply(&result, reply, err);
  52.  
  53. done:
  54.     if (directObj.dataHandle)
  55.           AEDisposeDesc(&directObj);
  56.     if (result.dataHandle)
  57.           AEDisposeDesc(&result);
  58.         
  59.     return(err);
  60. }    // DoGetData
  61.  
  62.  
  63. // * ****************************************************************************** *
  64. // *    HandleGetData
  65. // *                    Coerces theObj into a token which we understand and
  66. // *                    extracts the data requested in the token and puts it
  67. // *                    into dataDesc.
  68. // * ****************************************************************************** *
  69. OSErr HandleGetData(AEDesc *theObj, AEDesc *dataDesc)
  70. {
  71.     AEDesc          objTokenDesc = {typeNull, NULL},
  72.                     itemDesc = {typeNull, NULL},
  73.                     resultDesc = {typeNull, NULL};
  74.     long            index;
  75.     DescType        returnedType;
  76.     OSErr           err;
  77.  
  78.             //    Coerce theObj into a token which we can use - 
  79.             //        this may involve converting a list of tokens to a list of property tokens
  80.     if (typeObjectSpecifier == theObj->descriptorType)
  81.         err = AEResolve(theObj, kAEIDoMinimum, &objTokenDesc);
  82.     else    // Otherwise, just copy it
  83.         err = AEDuplicateDesc(theObj, &objTokenDesc);
  84.     
  85.     if (noErr != err) goto done;
  86.  
  87.     switch (objTokenDesc.descriptorType) {
  88.         case typeMyApplProp:
  89.             err = GetApplicationProperty(&objTokenDesc, dataDesc);
  90.             break;
  91.  
  92.         case typeAEList:
  93.             err = AECountItems(&objTokenDesc, &index);
  94.             if (noErr != err) goto done;
  95.     
  96.             for (; index > 0; index--) {
  97.                 err = AEGetNthDesc(&objTokenDesc, index, typeWildCard, &returnedType, &itemDesc);
  98.     
  99.                 if (noErr == err)        // Call this function recursively if necessary
  100.                     err = HandleGetData(&itemDesc, &resultDesc);
  101.                 
  102.                 if (noErr == err)        // Overwrite item in list with descriptor item
  103.                     err = AEPutDesc(&objTokenDesc, index, &resultDesc);
  104.                                         // objTokenDesc is just a copy anyway.
  105.                 if (itemDesc.dataHandle)
  106.                     AEDisposeDesc(&itemDesc);
  107.                 if (resultDesc.dataHandle)
  108.                     AEDisposeDesc(&resultDesc);
  109.             }
  110.                                         // Copy list into result
  111.             err = AEDuplicateDesc(&objTokenDesc, dataDesc);
  112.             break;
  113.             
  114.         default:    
  115.             err = errAEWrongDataType;
  116.     }
  117.  
  118. done:
  119.     if (objTokenDesc.dataHandle)
  120.         AEDisposeDesc(&objTokenDesc);
  121.  
  122.     return(err);
  123. } // HandleGetData
  124.  
  125.     
  126. // * ****************************************************************************** *
  127. // *    GetApplicationProperty
  128. // *                Fills dataDesc with the requested application property.
  129. // * ****************************************************************************** *
  130. OSErr GetApplicationProperty(const AEDesc *theObjToken, AEDesc *result)
  131. {
  132.     Str255                name;
  133.     ApplPropToken        theApplPropToken;
  134.     AEDesc                aDesc = {typeNull, NULL},
  135.                         nullDesc = {typeNull, NULL};
  136.     Size                tokenSize;
  137.     DescType            theType;
  138.     ProcessInfoRec        processInfo;
  139.     ProcessSerialNumber    currentProcess;
  140.       OSErr                err;
  141.     
  142.     err = AECoerceDesc(theObjToken, typeMyApplProp, &aDesc);
  143.     if (noErr != err) goto done;
  144.  
  145.     GetRawDataFromDescriptor(&aDesc, (Ptr)&theApplPropToken,
  146.                                         sizeof(theApplPropToken), &tokenSize);
  147.       
  148.     switch (theApplPropToken.tokenApplProperty) {
  149.  
  150.         case typeVoiceProperty:
  151.             err = PutPStringToDescriptor(result, (**gPrefs).voice);
  152.             break;
  153.     
  154.         case typeSpeakCharProperty:
  155.             err = PutLongIntToDescriptor(result,  (**gPrefs).speakChars);
  156.             break;
  157.  
  158.         case typeSpeakWordProperty:
  159.             err = PutLongIntToDescriptor(result,  (**gPrefs).speakWords);
  160.             break;
  161.  
  162.         case typeSpeakSentenceProperty:
  163.             err = PutLongIntToDescriptor(result,  (**gPrefs).speakSentence);
  164.             break;
  165.  
  166.         case pBestType:      // Return the null descriptor representing
  167.         case pDefaultType:    // the application.
  168.             err = AEDuplicateDesc(&nullDesc, result);
  169.             break;
  170.  
  171.         case pClass:
  172.             theType = cApplication;
  173.             err = AECreateDesc(typeType, (Ptr)&theType, sizeof(DescType), result);
  174.             break;
  175.  
  176.         case pName:
  177.             // Clear out the name, and then call the process manager to get
  178.             // the string for the name of our application.            
  179.             name[0] = 0;
  180.             processInfo.processInfoLength = sizeof(processInfo);
  181.             processInfo.processName = name;
  182.             processInfo.processAppSpec = NULL;
  183.             
  184.             GetCurrentProcess(¤tProcess);
  185.             GetProcessInformation(¤tProcess, &processInfo);            
  186.             // Create an AEDesc returning the application name string
  187.             // returned by the process manager.
  188.             PutPStringToDescriptor(result, name);
  189.             break;
  190.  
  191.         default:
  192.             err = errAEEventNotHandled;
  193.             break;
  194.     }
  195.  
  196.  
  197. done:
  198.     if (aDesc.dataHandle)
  199.         AEDisposeDesc(&aDesc);
  200.             
  201.     return(err);
  202. } // GetApplicationProperty
  203.